110 print"[147][144]"tab(11)" kitchen aid ":print tab(11)" forms generator "
120 print" enter the name to be used at the"
130 print" top of the forms mom[157][157][157][157][157]";:input mm$
140 print" make sure printer is turned on [144]"
150 print"[144] choices:":print" 1) menu planner form"
160 print" 2) shopping list form":print" enter choice:"
170 get k$:ifk$<>"1"andk$<>"2"then 170
180 print"[145]"tab(17)k$
190 open4,4:print tab(13)" printing... ":if k$="2" then 440
200 rem ----------menu planner---------
210 q$=" "+mm$+"'s daily menu planner [146]":r$="for week of [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"